home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtslider.bb2 < prev    next >
Text File  |  2002-01-27  |  1KB  |  58 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"opal.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11. foo.l=GTSlider(0,1,20,20,150,15,"Normal",#PLACETEXT_ABOVE,5,50)
  12. NPrint Hex$(foo)
  13.  
  14. foo.l=GTSlider(0,2,20,60,150,15,"Top",#PLACETEXT_ABOVE,5,50,20)
  15. NPrint Hex$(foo)
  16.  
  17. foo.l=GTSlider(0,3,20,100,150,15,"Disabled",#PLACETEXT_ABOVE|$40,5,50)
  18. NPrint Hex$(foo)
  19.  
  20. foo.l=GTSlider(0,4,20,140,150,15,"Immediate",#PLACETEXT_ABOVE|$80,5,50)
  21. NPrint Hex$(foo)
  22.  
  23. foo.l=GTSlider(0,5,20,180,150,15,"Relverify",#PLACETEXT_ABOVE|$4000,5,50)
  24. NPrint Hex$(foo)
  25.  
  26. foo.l=GTSlider(0,6,200,20,15,150,"Vertical",#PLACETEXT_RIGHT|$400,5,50)
  27. NPrint Hex$(foo)
  28.  
  29. GTNewLookProp On
  30. foo.l=GTSlider(0,7,20,220,150,15,"Newlookprop",#PLACETEXT_ABOVE,5,50)
  31. NPrint Hex$(foo)
  32.  
  33. AddIDCMP #SLIDERIDCMP
  34.  
  35. Window 0,0,0,600,300,$100f,"jjlk",-1,-1
  36. DefaultOutput
  37.  
  38. AttachGTList 0,0
  39. dragging.w=0
  40. While ev.l<>#IDCMP_CLOSEWINDOW
  41.     ev.l=WaitEvent
  42.     Select ev
  43.         Case #IDCMP_GADGETDOWN
  44.             NPrint "Gadget down event from gadget ",GadgetHit,", new position ",EventCode
  45.             dragging=1
  46.         Case #IDCMP_GADGETUP
  47.             NPrint "Gadget up event from gadget ",GadgetHit,", new position ",EventCode
  48.             dragging=0
  49.         Case #IDCMP_MOUSEMOVE
  50.             If dragging=1
  51.                 NPrint "Slider ",GadgetHit," dragged to position ",EventCode
  52.             EndIf
  53.     End Select
  54. Wend
  55. DetachGTList 0
  56. End
  57.  
  58.